object frmuserlist: Tfrmuserlist
  Left = 0
  Top = 0
  Caption = #29992#25143#31649#29702
  ClientHeight = 402
  ClientWidth = 755
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object tlb1: TToolBar
    Left = 0
    Top = 0
    Width = 755
    Height = 21
    AutoSize = True
    ButtonHeight = 21
    ButtonWidth = 31
    Caption = 'tlb1'
    ShowCaptions = True
    TabOrder = 0
    object btnadd: TToolButton
      Left = 0
      Top = 0
      Caption = #26032#22686
      ImageIndex = 0
      OnClick = btnaddClick
    end
    object btnedit: TToolButton
      Left = 31
      Top = 0
      Caption = #20462#25913
      ImageIndex = 1
      OnClick = btneditClick
    end
    object btndel: TToolButton
      Left = 62
      Top = 0
      Caption = #21024#38500
      ImageIndex = 2
      OnClick = btndelClick
    end
  end
  object dbgrdh1: TDBGridEh
    Left = 0
    Top = 21
    Width = 513
    Height = 381
    Align = alClient
    DataGrouping.GroupLevels = <>
    DataGrouping.DefaultStateExpanded = True
    DataSource = DataModule1.dsuser
    Flat = False
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'Tahoma'
    FooterFont.Style = []
    IndicatorOptions = [gioShowRowIndicatorEh]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = dbgrdh1CellClick
    OnMoveRecords = dbgrdh1MoveRecords
    Columns = <
      item
        EditButtons = <>
        FieldName = 'userid'
        Footers = <>
        Title.Caption = #32534#21495
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'username'
        Footers = <>
        Title.Caption = #30331#24405#21517
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'truename'
        Footers = <>
        Title.Caption = #22995#21517
        Width = 100
      end
      item
        ButtonStyle = cbsDropDown
        DropDownBox.Columns = <
          item
            FieldName = 'departname'
          end>
        DropDownBox.ListSource = DataModule1.dsdepartlook
        EditButtons = <>
        FieldName = 'departid'
        Footers = <>
        LookupDisplayFields = 'departname'
        Title.Caption = #37096#38376
        Width = 200
      end
      item
        EditButtons = <>
        FieldName = 'sex'
        Footers = <>
        Title.Caption = #24615#21035
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'email'
        Footers = <>
        Title.Caption = #37038#31665
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'phone'
        Footers = <>
        Title.Caption = #30005#35805
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'valid'
        Footers = <>
        Title.Caption = #26159#21542#21487#29992
        Width = 40
      end>
    object RowDetailData: TRowDetailPanelControlEh
      object dbgrdh2: TDBGridEh
        Left = 0
        Top = 0
        Width = 0
        Height = 0
        Align = alClient
        DataGrouping.GroupLevels = <>
        DataGrouping.DefaultStateExpanded = True
        DataSource = DataModule1.dsmodule
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Tahoma'
        FooterFont.Style = []
        IndicatorOptions = [gioShowRowIndicatorEh]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'moduleid'
            Footers = <>
            Title.Caption = #32534#21495
            Width = 40
          end
          item
            EditButtons = <>
            FieldName = 'modulecode'
            Footers = <>
            Title.Caption = #32534#30721
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'modulename'
            Footers = <>
            Title.Caption = #21517#31216
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'url'
            Footers = <>
            Width = 200
          end
          item
            EditButtons = <>
            FieldName = 'target'
            Footers = <>
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'memo'
            Footers = <>
            Title.Caption = #22791#27880
            Width = 200
          end
          item
            EditButtons = <>
            FieldName = 'sortid'
            Footers = <>
            Title.Caption = #25490#24207
          end
          item
            EditButtons = <>
            FieldName = 'valid'
            Footers = <>
            Title.Caption = #26159#21542#21487#29992
            Width = 40
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
  end
  object rzszpnl1: TRzSizePanel
    Left = 513
    Top = 21
    Width = 242
    Height = 381
    Align = alRight
    HotSpotVisible = True
    SizeBarWidth = 7
    TabOrder = 2
    object lbl1: TLabel
      Left = 8
      Top = 0
      Width = 234
      Height = 13
      Align = alTop
      Caption = #35774#32622#25317#26377#30340#26435#38480
      ExplicitWidth = 84
    end
    object tv1: TRzCheckTree
      Left = 8
      Top = 13
      Width = 234
      Height = 368
      OnStateChange = tv1StateChange
      Align = alClient
      Indent = 19
      SelectionPen.Color = clBtnShadow
      StateImages = tv1.CheckImages
      TabOrder = 0
    end
  end
  object unipopedom: TUniQuery
    Connection = DataModule1.uniconn
    SQL.Strings = (
      
        'select a.*,c.name,b.userid from tsys_module_popedom a left join ' +
        'tsys_popedom c on a.functionkey=c.functionkey left join tsys_use' +
        'r_module_popedom b on a.moduleid=b.moduleid and a.functionkey=b.' +
        'functionkey and userid=:userid')
    Left = 280
    Top = 296
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'userid'
      end>
  end
  object unimodule: TUniQuery
    Connection = DataModule1.uniconn
    SQL.Strings = (
      
        'select a.*,b.userid from tsys_module a left join tsys_user_modul' +
        'e_popedom b on a.moduleid=b.moduleid and userid=:userid and func' +
        'tionkey='#39'doview'#39' where a.parentid=:parentid order by modulecode')
    Left = 280
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'userid'
      end
      item
        DataType = ftUnknown
        Name = 'parentid'
      end>
  end
end
